perm filename SEARCH[1,VDS] blob sn#039476 filedate 1973-05-02 generic text, type T, neo UTF8
(DE SEARCH1 (L) (PROG()

  A	(COND ((NULL L) (RETURN NIL))
		((NULL (SETQ P (GETL (CAR L) SRLIST)))(GO B))
		((NOT (MEMQ (CAR L) OBL)) (PRINT 
		   (CONS (CAR L) (CAR P)))))
  B	(SETQ L (CDR L))
	(GO A)
))))
(DE SEARCH (L) (COND
	((NULL L) (RETURN NIL))
	(T (SEARCH1 (CAR L))(RETURN (SEARCH (CDR L))))
)))